home *** CD-ROM | disk | FTP | other *** search
/ Avalanche Ranch: Clip Ar… Song Lyrics & Decorating / Avalanche Ranch: Clip Art, Song Lyrics & Decorating - Disc 1.iso / pc / Xtras / WIN32 / impressario / Libraries / DL6PDFL.dll / PSPROCSET / 6 < prev    next >
Text File  |  2004-12-17  |  10KB  |  549 lines
  1. %%BeginResource: procset pdf 6.0 1
  2. %%Copyright: Copyright 1998-2003 Adobe Systems Incorporated. All Rights Reserved.
  3. %%Title: General operators for PDF, common to all Language Levels.
  4. /cm { matrix astore concat } bd
  5. /d /setdash ld
  6. /f /fill ld
  7. /h /closepath ld
  8. /i {dup 0 eq {pop _defaultflatness} if setflat} bd
  9. /j /setlinejoin ld
  10. /J /setlinecap ld
  11. /M /setmiterlimit ld
  12. /n /newpath ld
  13. /S /stroke ld
  14. /w /setlinewidth ld
  15. /W /clip ld
  16. /sg /setgray ld
  17. /initgs {
  18. 0 setgray
  19. [] 0 d
  20. 0 j
  21. 0 J
  22. 10 M
  23. 1 w
  24. false setSA
  25. /_defaulttransfer load settransfer
  26. 0 i
  27. /RelativeColorimetric ri
  28. newpath
  29. } bd
  30. /int {
  31. dup 2 index sub 3 index 5 index sub div 6 -2 roll sub mul
  32. exch pop add exch pop
  33. } bd
  34. /limit {
  35. dup 2 index le { exch } if pop
  36. dup 2 index ge { exch } if pop
  37. } bd
  38. /domainClip {
  39. Domain aload pop 3 2 roll
  40. limit
  41. } [/Domain] bld
  42. /applyInterpFunc {
  43. 0 1 DimOut 1 sub
  44. {
  45. dup C0 exch get exch
  46. dup C1 exch get exch
  47. 3 1 roll
  48. 1 index sub
  49. 3 index
  50. N exp mul add
  51. exch
  52. currentdict /Range_lo known
  53. {
  54. dup Range_lo exch get exch
  55. Range_hi exch get
  56. 3 2 roll limit
  57. }
  58. {
  59. pop
  60. }
  61. ifelse
  62. exch
  63. } for
  64. pop
  65. } [/DimOut /C0 /C1 /N /Range_lo /Range_hi] bld
  66. /encodeInput {
  67. NumParts 1 sub
  68. 0 1 2 index
  69. {
  70. dup Bounds exch get
  71. 2 index gt
  72. { exit }
  73. { dup
  74. 3 index eq
  75. { exit }
  76. { pop } ifelse
  77. } ifelse
  78. } for
  79. 3 2 roll pop
  80. dup Bounds exch get exch
  81. dup 1 add Bounds exch get exch
  82. 2 mul
  83. dup Encode exch get exch
  84. 1 add Encode exch get
  85. int
  86. } [/NumParts /Bounds /Encode] bld
  87. /rangeClip {
  88. exch dup Range_lo exch get
  89. exch Range_hi exch get
  90. 3 2 roll
  91. limit
  92. } [/Range_lo /Range_hi] bld
  93. /applyStitchFunc {
  94. Functions exch get exec
  95. currentdict /Range_lo known {
  96. 0 1 DimOut 1 sub {
  97. DimOut 1 add -1 roll
  98. rangeClip
  99. } for
  100. } if
  101. } [/Functions /Range_lo /DimOut] bld
  102. /pdf_flushfilters
  103. {
  104. aload length
  105. { dup status
  106. 1 index currentfile ne and
  107. { dup flushfile closefile }
  108. { pop }
  109. ifelse
  110. } repeat
  111. } bd
  112. /pdf_readstring
  113. {
  114. 1 index dup length 1 sub get
  115. exch readstring pop
  116. exch pdf_flushfilters
  117. } bind def
  118. /pdf_dictOp
  119. {
  120. 3 2 roll
  121. 10 dict copy
  122. begin
  123. _Filters dup length 1 sub get def
  124. currentdict exch exec
  125. _Filters pdf_flushfilters
  126. end
  127. } [/_Filters] bld
  128. /pdf_image {{image} /DataSource pdf_dictOp} bd
  129. /pdf_imagemask {{imagemask} /DataSource pdf_dictOp} bd
  130. /pdf_shfill {{sh} /DataSource pdf_dictOp} bd
  131. /pdf_sethalftone {{sethalftone} /Thresholds pdf_dictOp} bd
  132. /pdf_maskedImage
  133. {
  134. 10 dict copy begin
  135. /miDict currentdict def
  136. /DataDict DataDict 10 dict copy def
  137. DataDict begin
  138. /DataSource
  139. _Filters dup length 1 sub get
  140. def
  141. miDict image
  142. _Filters pdf_flushfilters
  143. end
  144. end
  145. } [/miDict /DataDict /_Filters] bld
  146. /RadialShade {
  147. 40 dict begin
  148. /background exch def
  149. /ext1 exch def
  150. /ext0 exch def
  151. /BBox exch def
  152. /r2 exch def
  153. /c2y exch def
  154. /c2x exch def
  155. /r1 exch def
  156. /c1y exch def
  157. /c1x exch def
  158. /rampdict exch def
  159. gsave
  160. BBox length 0 gt {
  161. newpath
  162. BBox 0 get BBox 1 get moveto
  163. BBox 2 get BBox 0 get sub 0 rlineto
  164. 0 BBox 3 get BBox 1 get sub rlineto
  165. BBox 2 get BBox 0 get sub neg 0 rlineto
  166. closepath
  167. clip
  168. newpath
  169. } if
  170. c1x c2x eq
  171. {
  172. c1y c2y lt {/theta 90 def}{/theta 270 def} ifelse
  173. }
  174. {
  175. /slope c2y c1y sub c2x c1x sub div def
  176. /theta slope 1 atan def
  177. c2x c1x lt c2y c1y ge and { /theta theta 180 sub def} if
  178. c2x c1x lt c2y c1y lt and { /theta theta 180 add def} if
  179. }
  180. ifelse
  181. gsave
  182. clippath
  183. c1x c1y translate
  184. theta rotate
  185. -90 rotate
  186. { pathbbox } stopped
  187. { 0 0 0 0 } if
  188. /yMax exch def
  189. /xMax exch def
  190. /yMin exch def
  191. /xMin exch def
  192. grestore
  193. xMax xMin eq yMax yMin eq or
  194. {
  195. grestore
  196. end
  197. }
  198. {
  199. /max { 2 copy gt { pop } {exch pop} ifelse } bind def
  200. /min { 2 copy lt { pop } {exch pop} ifelse } bind def
  201. rampdict begin
  202. 40 dict begin
  203. background length 0 gt { background sssetbackground gsave clippath fill grestore } if
  204. gsave
  205. c1x c1y translate
  206. theta rotate
  207. -90 rotate
  208. /c2y c1x c2x sub dup mul c1y c2y sub dup mul add sqrt def
  209. /c1y 0 def
  210. /c1x 0 def
  211. /c2x 0 def
  212. ext0 {
  213. 0 getrampcolor
  214. c2y r2 add r1 sub 0.0001 lt
  215. {
  216. c1x c1y r1 360 0 arcn
  217. pathbbox
  218. /aymax exch def
  219. /axmax exch def
  220. /aymin exch def
  221. /axmin exch def
  222. /bxMin xMin axmin min def
  223. /byMin yMin aymin min def
  224. /bxMax xMax axmax max def
  225. /byMax yMax aymax max def
  226. bxMin byMin moveto
  227. bxMax byMin lineto
  228. bxMax byMax lineto
  229. bxMin byMax lineto
  230. bxMin byMin lineto
  231. eofill
  232. }
  233. {
  234. c2y r1 add r2 le
  235. {
  236. c1x c1y r1 0 360 arc
  237. fill
  238. }
  239. {
  240. c2x c2y r2 0 360 arc fill
  241. r1 r2 eq
  242. {
  243. /p1x r1 neg def
  244. /p1y c1y def
  245. /p2x r1 def
  246. /p2y c1y def
  247. p1x p1y moveto p2x p2y lineto p2x yMin lineto p1x yMin lineto
  248. fill
  249. }
  250. {
  251. /AA r2 r1 sub c2y div def
  252. AA -1 eq
  253. { /theta 89.99 def}
  254. { /theta AA 1 AA dup mul sub sqrt div 1 atan def}
  255. ifelse
  256. /SS1 90 theta add dup sin exch cos div def
  257. /p1x r1 SS1 SS1 mul SS1 SS1 mul 1 add div sqrt mul neg def
  258. /p1y p1x SS1 div neg def
  259. /SS2 90 theta sub dup sin exch cos div def
  260. /p2x r1 SS2 SS2 mul SS2 SS2 mul 1 add div sqrt mul def
  261. /p2y p2x SS2 div neg def
  262. r1 r2 gt
  263. {
  264. /L1maxX p1x yMin p1y sub SS1 div add def
  265. /L2maxX p2x yMin p2y sub SS2 div add def
  266. }
  267. {
  268. /L1maxX 0 def
  269. /L2maxX 0 def
  270. }ifelse
  271. p1x p1y moveto p2x p2y lineto L2maxX L2maxX p2x sub SS2 mul p2y add lineto
  272. L1maxX L1maxX p1x sub SS1 mul p1y add lineto
  273. fill
  274. }
  275. ifelse
  276. }
  277. ifelse
  278. } ifelse
  279. } if
  280. c1x c2x sub dup mul
  281. c1y c2y sub dup mul
  282. add 0.5 exp
  283. 0 dtransform
  284. dup mul exch dup mul add 0.5 exp 72 div
  285. 0 72 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt
  286. 72 0 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt
  287. 1 index 1 index lt { exch } if pop
  288. /hires exch def
  289. hires mul
  290. /numpix exch def
  291. /numsteps NumSamples def
  292. /rampIndxInc 1 def
  293. /subsampling false def
  294. numpix 0 ne
  295. {
  296. NumSamples numpix div 0.5 gt
  297. {
  298. /numsteps numpix 2 div round cvi dup 1 le { pop 2 } if def
  299. /rampIndxInc NumSamples 1 sub numsteps div def
  300. /subsampling true def
  301. } if
  302. } if
  303. /xInc c2x c1x sub numsteps div def
  304. /yInc c2y c1y sub numsteps div def
  305. /rInc r2 r1 sub numsteps div def
  306. /cx c1x def
  307. /cy c1y def
  308. /radius r1 def
  309. newpath
  310. xInc 0 eq yInc 0 eq rInc 0 eq and and
  311. {
  312. 0 getrampcolor
  313. cx cy radius 0 360 arc
  314. stroke
  315. NumSamples 1 sub getrampcolor
  316. cx cy radius 72 hires div add 0 360 arc
  317. 0 setlinewidth
  318. stroke
  319. }
  320. {
  321. 0
  322. numsteps
  323. {
  324. dup
  325. subsampling { round } if
  326. getrampcolor
  327. cx cy radius 0 360 arc
  328. /cx cx xInc add def
  329. /cy cy yInc add def
  330. /radius radius rInc add def
  331. cx cy radius 360 0 arcn
  332. eofill
  333. rampIndxInc add
  334. }
  335. repeat
  336. pop
  337. } ifelse
  338. ext1 {
  339. c2y r2 add r1 lt
  340. {
  341. c2x c2y r2 0 360 arc
  342. fill
  343. }
  344. {
  345. c2y r1 add r2 sub 0.0001 le
  346. {
  347. c2x c2y r2 360 0 arcn
  348. pathbbox
  349. /aymax exch def
  350. /axmax exch def
  351. /aymin exch def
  352. /axmin exch def
  353. /bxMin xMin axmin min def
  354. /byMin yMin aymin min def
  355. /bxMax xMax axmax max def
  356. /byMax yMax aymax max def
  357. bxMin byMin moveto
  358. bxMax byMin lineto
  359. bxMax byMax lineto
  360. bxMin byMax lineto
  361. bxMin byMin lineto
  362. eofill
  363. }
  364. {
  365. c2x c2y r2 0 360 arc fill
  366. r1 r2 eq
  367. {
  368. /p1x r2 neg def
  369. /p1y c2y def
  370. /p2x r2 def
  371. /p2y c2y def
  372. p1x p1y moveto p2x p2y lineto p2x yMax lineto p1x yMax lineto
  373. fill
  374. }
  375. {
  376. /AA r2 r1 sub c2y div def
  377. AA -1 eq
  378. { /theta 89.99 def}
  379. { /theta AA 1 AA dup mul sub sqrt div 1 atan def}
  380. ifelse
  381. /SS1 90 theta add dup sin exch cos div def
  382. /p1x r2 SS1 SS1 mul SS1 SS1 mul 1 add div sqrt mul neg def
  383. /p1y c2y p1x SS1 div sub def
  384. /SS2 90 theta sub dup sin exch cos div def
  385. /p2x r2 SS2 SS2 mul SS2 SS2 mul 1 add div sqrt mul def
  386. /p2y c2y p2x SS2 div sub def
  387. r1 r2 lt
  388. {
  389. /L1maxX p1x yMax p1y sub SS1 div add def
  390. /L2maxX p2x yMax p2y sub SS2 div add def
  391. }
  392. {
  393. /L1maxX 0 def
  394. /L2maxX 0 def
  395. }ifelse
  396. p1x p1y moveto p2x p2y lineto L2maxX L2maxX p2x sub SS2 mul p2y add lineto
  397. L1maxX L1maxX p1x sub SS1 mul p1y add lineto
  398. fill
  399. }
  400. ifelse
  401. }
  402. ifelse
  403. } ifelse
  404. } if
  405. grestore
  406. grestore
  407. end
  408. end
  409. end
  410. } ifelse
  411. } bd
  412. /GenStrips {
  413. 40 dict begin
  414. /background exch def
  415. /ext1 exch def
  416. /ext0 exch def
  417. /BBox exch def
  418. /y2 exch def
  419. /x2 exch def
  420. /y1 exch def
  421. /x1 exch def
  422. /rampdict exch def
  423. gsave
  424. BBox length 0 gt {
  425. newpath
  426. BBox 0 get BBox 1 get moveto
  427. BBox 2 get BBox 0 get sub 0 rlineto
  428. 0 BBox 3 get BBox 1 get sub rlineto
  429. BBox 2 get BBox 0 get sub neg 0 rlineto
  430. closepath
  431. clip
  432. newpath
  433. } if
  434. x1 x2 eq
  435. {
  436. y1 y2 lt {/theta 90 def}{/theta 270 def} ifelse
  437. }
  438. {
  439. /slope y2 y1 sub x2 x1 sub div def
  440. /theta slope 1 atan def
  441. x2 x1 lt y2 y1 ge and { /theta theta 180 sub def} if
  442. x2 x1 lt y2 y1 lt and { /theta theta 180 add def} if
  443. }
  444. ifelse
  445. gsave
  446. clippath
  447. x1 y1 translate
  448. theta rotate
  449. { pathbbox } stopped
  450. { 0 0 0 0 } if
  451. /yMax exch def
  452. /xMax exch def
  453. /yMin exch def
  454. /xMin exch def
  455. grestore
  456. xMax xMin eq yMax yMin eq or
  457. {
  458. grestore
  459. end
  460. }
  461. {
  462. rampdict begin
  463. 20 dict begin
  464. background length 0 gt { background sssetbackground gsave clippath fill grestore } if
  465. gsave
  466. x1 y1 translate
  467. theta rotate
  468. /xStart 0 def
  469. /xEnd x2 x1 sub dup mul y2 y1 sub dup mul add 0.5 exp def
  470. /ySpan yMax yMin sub def
  471. /numsteps NumSamples def
  472. /rampIndxInc 1 def
  473. /subsampling false def
  474. xStart 0 transform
  475. xEnd 0 transform
  476. 3 -1 roll
  477. sub dup mul
  478. 3 1 roll
  479. sub dup mul
  480. add 0.5 exp 72 div
  481. 0 72 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt
  482. 72 0 matrix defaultmatrix dtransform dup mul exch dup mul add sqrt
  483. 1 index 1 index lt { exch } if pop
  484. mul
  485. /numpix exch def
  486. numpix 0 ne
  487. {
  488. NumSamples numpix div 0.5 gt
  489. {
  490. /numsteps numpix 2 div round cvi dup 1 le { pop 2 } if def
  491. /rampIndxInc NumSamples 1 sub numsteps div def
  492. /subsampling true def
  493. } if
  494. } if
  495. ext0 {
  496. 0 getrampcolor
  497. xMin xStart lt
  498. { xMin yMin xMin neg ySpan rectfill } if
  499. } if
  500. /xInc xEnd xStart sub numsteps div def
  501. /x xStart def
  502. 0
  503. numsteps
  504. {
  505. dup
  506. subsampling { round } if
  507. getrampcolor
  508. x yMin xInc ySpan rectfill
  509. /x x xInc add def
  510. rampIndxInc add
  511. }
  512. repeat
  513. pop
  514. ext1 {
  515. xMax xEnd gt
  516. { xEnd yMin xMax xEnd sub ySpan rectfill } if
  517. } if
  518. grestore
  519. grestore
  520. end
  521. end
  522. end
  523. } ifelse
  524. } bd
  525. /currentdistillerparams where { pop currentdistillerparams /CoreDistVersion get 5000 lt}{true}ifelse
  526. {
  527. /PDFMark5 {cleartomark} bd
  528. }
  529. {
  530. /PDFMark5 {pdfmark} bd
  531. }ifelse
  532. /ReadByPDFMark5
  533. {
  534. 2 dict begin
  535. /makerString exch def string /tmpString exch def
  536. {
  537. currentfile tmpString readline pop
  538. makerString anchorsearch
  539. {
  540. pop pop cleartomark exit
  541. }
  542. {
  543. 3 copy /PUT PDFMark5 pop 2 copy (\n) /PUT PDFMark5
  544. } ifelse
  545. }loop
  546. end
  547. }bd
  548. %%EndResource
  549.